guile-1.7 + cygwin + (ice-9 syncase)

guile-1.7 + cygwin + (ice-9 syncase)

[Pach Roman (GS-EC/ESA4) *]

Hello,
I have installed the new version (i.e. 1.7) on my computer and tried the following simple sequence:

bash> guile
guile> (use-syntax (ice-9 syncase))
guile> (while #f)
ERROR: invalid syntax ()
ABORT: (misc-error)
guile> 

The following test in turn generates no errors:

bash> guile
guile> (while #f)
guile> 

There were no problems using guile-1.6.4.

Bye, Roman


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: guile-1.7 + cygwin + (ice-9 syncase)

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 235 bytes --]

"Pach Roman (GS-EC/ESA4) *" <Roman.Pach@de.bosch.com> writes:
>
> guile> (use-syntax (ice-9 syncase))
> guile> (while #f)
> ERROR: invalid syntax ()

Thanks, I made the workaround below.  I think it's a bug or misfeature
in syncase.



[-- Attachment #2: boot-9.scm.while.diff --]
[-- Type: text/plain, Size: 1248 bytes --]

--- boot-9.scm.~1.343.~	2005-01-11 09:41:14.000000000 +1100
+++ boot-9.scm	2005-01-28 08:08:55.000000000 +1100
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
+;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005
 ;;;; Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
@@ -2754,6 +2754,16 @@
 ;; `while' even when recursing.  `while-helper' is an easy way to keep the
 ;; `key' binding away from the cond and body code.
 ;;
+;; FIXME: This is supposed to have an `unquote' on the `do' the same used
+;; for lambda and not, so as to protect against any user rebinding of that
+;; symbol, but unfortunately an unquote breaks with ice-9 syncase, eg.
+;;
+;;     (use-modules (ice-9 syncase))
+;;     (while #f)
+;;     => ERROR: invalid syntax ()
+;;
+;; This is probably a bug in syncase.
+;;
 (define-macro (while cond . body)
   (define (while-helper proc)
     (do ((key (make-symbol "while-key")))
@@ -2763,7 +2773,7 @@
 			(lambda () (throw key #f))))
 		(lambda (key arg) arg)))))
   `(,while-helper (,lambda (break continue)
-		    (,do ()
+		    (do ()
 			((,not ,cond))
 		      ,@body)
 		    #t)))

[-- Attachment #3: Type: text/plain, Size: 143 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel