fixed a bug

svn: r3196
This commit is contained in:
Robby Findler 2006-06-02 21:52:52 +00:00
parent 3d713533cc
commit 2e1dbccc00

View File

@ -509,7 +509,7 @@
get-init-code use-mred-launcher get-reader)
(define/pubment (capability-value s)
(inner (get-capability-default s) capability-value))
(inner (get-capability-default s) capability-value s))
(define/public (first-opened) (void))
(define/public (get-comment-character) (values "; " #\;))