integer

Conformance: SketchyLISP Core

Purpose: Convert a number to an integer.

Arguments:
A - number

Implementation:

(define (integer a)
  (letrec
    ((_integer
       (lambda (a)
         (cond ((eq? (car a) '+) a)
           ((eq? (car a) '-) a)
           (else (cons '+ a))))))
    (list->integer
      (_integer (integer->list a)) #t)))

Example:

(integer 567) 
=> +567

See also:
digits, natural.