I get the following error message when I try to compile a program to CPS:
---cut here---
tohoyn@tohoyn-laptop:~/src/guile-2.1.4/work$
../guile-2.1.4/meta/uninstalled-env dash
$ ../guile-2.1.4/meta/guild compile -t cps hello.scm
Backtrace:
13 (apply-smob/1 #<catch-closure 1c04c20>)
In ice-9/boot-9.scm:
704:2 12 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
608:8 11 (_ #(#(#<directory (guile-user) 1c0bf30>)))
In /home/tohoyn/src/guile-2.1.4/guile-2.1.4/meta/guild:
72:17 10 (main _)
In srfi/srfi-1.scm:
640:9 9 (for-each1 ("hello.scm"))
In scripts/compile.scm:
251:26 8 (_ _)
In system/base/target.scm:
57:6 7 (with-target _ _)
In system/base/compile.scm:
152:6 6 (compile-file _ #:output-file _ #:from _ #:to _ #:env _ …)
43:4 5 (call-once _)
In ice-9/boot-9.scm:
829:4 4 (with-throw-handler _ _ _)
In system/base/compile.scm:
59:11 3 (_)
In language/cps/spec.scm:
28:9 2 (write-cps #<intmap 0-40> _)
In unknown file:
1 (scm-error misc-error #f "~A ~S" ("unexpected cps" #) #f)
In ice-9/boot-9.scm:
753:26 0 (dispatch-exception _ _ _)
ice-9/boot-9.scm:753:26: In procedure dispatch-exception:
ice-9/boot-9.scm:753:26: unexpected cps #<intmap 0-40>
$
---cut here---
The contents of the program file to be compiled are:
---cut here---
(define (main args)
(display "Hello")
(newline))
---cut here---
Can you help me with this?
- Tommi Höynälänmaa
