Duh... +1 and -1 are integers. Sorry. Mikael

2009/8/8 Mikael More mikael.more@gmail.com

In gsc:

...

(define +1 'a)

*** ERROR IN (console)@1.9 -- Identifier expected

...

(define -1 'a)

*** ERROR IN (console)@2.9 -- Identifier expected

...

(define 1+ 'a) (let ((+1 #t)) #t)

*** ERROR IN (console)@4.8 -- Identifier expected

In BH:

(define (+1) #t) *** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string 1)

...

(define (-1) #t)

*** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string -1)

...

(define (1+) #t) (define (*1) #t) (define (%1) #t) (define +1 #t)

*** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string 1)

...

(define -1 #t)

*** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string -1)

...

(define + #t) (define - #t) (define -5 #t)

*** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string -5)

...

(define +a #t) (define -a #t) (let ((+1 #t)) #t)

*** ERROR IN ##main -- (Argument 1) SYMBOL expected (symbol->string 1)

...

(let ((+ #t)) #t)

#t

Why?

Mikael

---

Gambit-modules-list mailing list Gambit-modules-list@mercure.iro.umontreal.ca https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-modules-list