root@mepis1:/opt/gambit# cat test.scm
(define (block))

(define (f x)
  (+ (* x x)
     (- x 1)))

(define (g y)
  (f (f y)))

(pp 123)

root@mepis1:/opt/gambit# gsc test.scm
*** ERROR IN "/opt/gambit/test.scm"@1.1 -- Ill-formed special form: define
root@mepis1:/opt/gambit# gsc -e '(set! c#targ-tree-shake? #t)' test.scm
*** ERROR IN (string)@1.1 -- Unbound variable: c#targ-tree-shake?

Any ideas?

Thanks, Steve