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