Am 17.11.2013 14:19, schrieb "Jörg F. Wittenberger":
Am 17.11.2013 03:02, schrieb David A. Wheeler:
I've tweaked the "readable" code to address some of the portability issues
that Joerg Wittenberger noted. It should now be easier to port the code to
other Schemes.
The main code now uses R6RS/R7RS exception syntax and makes a call to a special
init-sweet.
The guile-specific code now "implements" R6RS/R7RS exception syntax, and its
version of init-sweet calls the guile-specific "debug-set!. That eliminates
those
guile-specific portions from the main code line. Implementations that support
R6RS/R7RS
exception syntax and need no special initialization should now work unchanged.
Joerg: I hope that helps. This version works on guile.
Does it? Then either guile has an (eq? eq eq?) evaluate to true or the
exception handler was never invoked. That is: I would guess.
Forgot the diff. Appended.
--- kernel.orig.scm 2013-11-17 13:45:50.000000000 +0100
+++ kernel.scm 2013-11-17 14:25:09.000000000 +0100
@@ -775,7 +775,6 @@
(display message (current-error-port))
(newline (current-error-port))
(flush-output-port (current-error-port))
- ; Guile extension, but many Schemes have exceptions
(raise 'readable)
'())
@@ -2062,7 +2061,7 @@
(guard
(exception
- ((eq exception 'readable)
+ ((eq? exception 'readable)
(read-to-unindented-line port) (t-expr-catch port)))
(t-expr port)))
------------------------------------------------------------------------------
DreamFactory - Open Source REST & JSON Services for HTML5 & Native Apps
OAuth, Users, Roles, SQL, NoSQL, BLOB Storage and External API Access
Free app hosting. Or install the open source package on any LAMP server.
Sign up and see examples for AngularJS, jQuery, Sencha Touch and Native!
http://pubads.g.doubleclick.net/gampad/clk?id=63469471&iu=/4140/ostg.clktrk
_______________________________________________
Readable-discuss mailing list
Readable-discuss@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/readable-discuss
