From 8b6ec4c59e72bd1924ffc2326ad72e4584a9def3 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Thu, 23 Oct 2008 17:02:43 +0000 Subject: [PATCH] Fixed two typos in '#lang planet' reader. svn: r12103 --- collects/planet/lang/reader.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/planet/lang/reader.ss b/collects/planet/lang/reader.ss index 724ec6d998..ebe8fda962 100644 --- a/collects/planet/lang/reader.ss +++ b/collects/planet/lang/reader.ss @@ -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))))])