search

david135 / ypsilon

Automatically exported from code.google.com/p/ypsilon
Other
0 stars 0 forks source link

eval not working with environment which does not contain define #22

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
Looks like it's because the created library renames define to |.&DEFINE|
but then attempts to do (define |.&ANONYMOUS'.&RESULT| |.bitwise-and|)

Ypsilon 0.9.5-trunk Copyright (c) 2008 Y.Fujita, LittleWing Company Limited.
>
(guard (ex [else 
            (display "------------------\n")
            (write (simple-conditions ex))
            (display "\n------------------\n")]) 
  (eval 'bitwise-and (environment '(rnrs arithmetic bitwise))))
------------------
(#<record &syntax (library (|.&ANONYMOUS|) (export |.&RESULT|) (import
(rename (only (core intrinsics) define) (define |.&DEFINE|)) (rnrs
arithmetic bitwise)) (|.&DEFINE| |.&RESULT| bitwise-and)) (define
|.&ANONYMOUS'.&RESULT| |.bitwise-and|)> #<record &message "attempt to
reference unbound variable define">)
------------------
>

Original issue reported on code.google.com by derick.e...@gmail.com on 1 Jul 2008 at 12:26

GoogleCodeExporter commented 9 years ago 
I have fixed the bug and trunk directory is updated. Please try. Thank you!

Original comment by y.fujita...@gmail.com on 2 Jul 2008 at 5:52