suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed two typos in '#lang planet' reader.

Browse Source 
svn: r12103
This commit is contained in:
Carl Eastlund 2008-10-23 17:02:43 +00:00
parent 70146a8d3f
commit 8b6ec4c59e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/lang/reader.ss
View File

@ -14,7 +14,7 @@
((if eof? ((if eof?
raise-read-eof-error raise-read-eof-error
raise-read-error) raise-read-error)
(format "bad planet path following language-loder syntax~a~a" (format "bad planet path following language-loader syntax~a~a"
(if str ": " "") (if str ": " "")
(or str "")) (or str ""))
src line col pos src line col pos
@ -37,7 +37,7 @@
(lambda (spec) (lambda () (lambda (tag) #f))))) (lambda (spec) (lambda () (lambda (tag) #f)))))
(define (planet-read-fn in read-sym args src mod line col pos) (define (planet-read-fn in read-sym args src mod line col pos)
(let ([r (planet-get in "/lang/reader" read-sym src mod line col pos (let ([r (planet-get in "/lang/reader" read-sym src #|mod|# line col pos
(lambda (spec) (lambda (spec)
(lambda () (lambda ()
(error 'planet "cannot find reader for `#lang planet ~a'" spec))))]) (error 'planet "cannot find reader for `#lang planet ~a'" spec))))])