/[guile]/guile/workbook/bugs/4.stuff/named-let-xform.scm
ViewVC logotype

Diff of /guile/workbook/bugs/4.stuff/named-let-xform.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ttn, Mon May 13 17:07:08 2002 UTC revision 1.2 by ttn, Mon May 13 17:09:51 2002 UTC
# Line 1  Line 1 
1  (or (= 1 (let ((f -)) (let f ((n (f 1))) n)))  (or (= -1 (let ((f -)) (let f ((n (f 1))) n)))
2      (error "bad named-let xform"))      (error "bad named-let xform"))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26