A problem with compilation to CPS

A problem with compilation to CPS

[Tommi Höynälänmaa]

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

Re: A problem with compilation to CPS

[Andy Wingo]

On Tue 20 Sep 2016 15:19, Tommi Höynälänmaa <tommi.hoynalanmaa@gmail.com> writes:

> 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

Indeed the CPS reader and writer weren't working right.  Fixed (in a
very non-fancy kind of way).

Andy