7 lines
132 B
Scheme
7 lines
132 B
Scheme
|
|
||
|
|
; don't put a copyright notice, silly shell script
|
||
|
|
|
||
|
|
(define (*structure-ref struct name)
|
||
|
|
(eval name (interaction-environment)))
|
||
|
|
|