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?
raise-read-eof-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 ": " "")
(or str ""))
src line col pos
@ -37,7 +37,7 @@
(lambda (spec) (lambda () (lambda (tag) #f)))))
(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 ()
(error 'planet "cannot find reader for `#lang planet ~a'" spec))))])