Adjusting profj parsing to use object-name syntax source.

svn: r10886
This commit is contained in:
Danny Yoo 2008-07-23 21:50:19 +00:00
parent a1ee4b8703
commit d0c4a5e49f

View File

@ -728,7 +728,7 @@
(let ((end? (eof-object? (peek-char-or-special port))))
(if end?
eof
(datum->syntax #f `(parse-java-full-program ,(parse port (get-defn-editor name) #;(quote name) level)
(datum->syntax #f `(parse-java-full-program ,(parse port name level)
,name) #f)))))))
(define/public (front-end/interaction port settings)
(mred? #t)