[Chicken-users] Re: packrat example

[Thomas Hafner]

"felix winkelmann" <address@hidden> wrote/schrieb <address@hidden>:

> If you run csi (or a compiled program that uses packrat) with "-:d",
> what is the output?

The output to STDOUT is this:

|[debug] application startup...
|[debug] heap resized to 500000 bytes
|[debug] stack bottom is 0x7fffbc3cb400.
|[debug] entering toplevel toplevel...
|[debug] stack resized to 131072 bytes
|[debug] entering toplevel library_toplevel...
|[debug] entering toplevel eval_toplevel...
|[debug] entering toplevel extras_toplevel...
|[debug] entering toplevel match_toplevel...
|
|  ___| |    _)      |               
| |     __ \  |  __| |  /  _ \ __ \  
| |     | | | | (      <   __/ |   | 
|\____|_| |_|_|\___|_|\_\\___|_|  _| 
|
|Version 2.5 - linux-unix-gnu-x86-64 - [ 64bit libffi dload ptables applyhook ]
|(c)2000-2006 Felix L. Winkelmann
|; loading try-packrat.scm ...
|; loading /usr/local/lib/chicken/1/syntax-case.so ...
|[debug] loading compiled module `/usr/local/lib/chicken/1/syntax-case.so' 
(handle is 0x57f650)
|[debug] entering toplevel toplevel...
|[debug] resizing heap dynamically from 0x7a120 to 0xf4240 bytes...
|[debug] resizing heap dynamically from 0xf4240 to 0x1e8480 bytes...
|; loading /usr/local/lib/chicken/1/syntax-case-chicken-macros.scm ...
|[debug] resizing heap dynamically from 0x1e8480 to 0x3d0a08 bytes...
|; loading /usr/local/lib/chicken/1/packrat.so ...
|[debug] loading compiled module `/usr/local/lib/chicken/1/packrat.so' (handle 
is 0x5962e0)
|[debug] entering toplevel toplevel...
|; visiting /usr/local/lib/chicken/1/packrat.scm ...
|base-token: (num . 19)
|base-token: (-)
|base-token: (num . 11)
|base-token: (+)
|base-token: (num . 2)

The output to STDERR is this:

|Error: unbound variable: lset-union
|
|       Call history:
|
|       <eval>          [generator] (values (quote #f) g1525)
|       <eval>          [g1551] (packrat$$packrat-check g1552 (lambda (g1559) 
(packrat$$packrat-check g1551 (lambda (g1560) (lambda (g1561) (packrat$$ma......
|       <eval>          [g1552] (packrat$$results->result g1569 (quote simple) 
(lambda () ((packrat$$packrat-check-base (quote num) (lambda (g1570) (lam......
|       <eval>          [g1552] ((packrat$$packrat-check-base (quote num) 
(lambda (g1570) (lambda (g1571) (packrat$$make-result g1570 g1571)))) g1569)
|       <eval>          [g1552] (packrat$$packrat-check-base (quote num) 
(lambda (g1570) (lambda (g1571) (packrat$$make-result g1570 g1571))))
|       <eval>          [generator] (null? g1524)
|       <eval>          [generator] (values (quote #f) (quote #f))
|       <eval>          [g1552] (packrat$$make-result g1570 g1571)
|       <eval>          [g1551] (packrat$$packrat-check g1551 (lambda (g1560) 
(lambda (g1561) (packrat$$make-result (lambda (g1562) (g1560 (+ g1562 g155......
|       <eval>          [g1551] (packrat$$results->result g1557 (quote tail) 
(lambda () ((packrat$$packrat-or (packrat$$packrat-check-base (quote +) 
(la......
|       <eval>          [g1551] ((packrat$$packrat-or 
(packrat$$packrat-check-base (quote +) (lambda (g1558) (packrat$$packrat-check 
g1552 (lambda (g155......
|       <eval>          [g1551] (packrat$$packrat-or 
(packrat$$packrat-check-base (quote +) (lambda (g1558) (packrat$$packrat-check 
g1552 (lambda (g1559......
|       <eval>          [g1551] (packrat$$packrat-check-base (quote +) (lambda 
(g1558) (packrat$$packrat-check g1552 (lambda (g1559) (packrat$$packrat-c......
|       <eval>          [g1551] (packrat$$packrat-or 
(packrat$$packrat-check-base (quote -) (lambda (g1563) (packrat$$packrat-check 
g1552 (lambda (g1564......
|       <eval>          [g1551] (packrat$$packrat-check-base (quote -) (lambda 
(g1563) (packrat$$packrat-check g1552 (lambda (g1564) (packrat$$packrat-c......
|       <eval>          [g1551] (packrat$$make-result values g1568)     <--

I had a look for the unknown "lset-union" and could find it in srfi-1,
so I just tried to add the line
(require-extension srfi-1)
and it worked then.

Regards
  Thomas

-- 
Give thought to your reputation.  Consider changing name and moving to
a new town.