Parent Directory | Revision Log | 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")) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |