rename read-string to read-str to avoid name collision

anttih · Nov 18, 2011 · ff0c61d · ff0c61d
1 parent 6c4d5b0
commit ff0c61d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/read.scm b/read.scm
@@ -15,7 +15,7 @@
 
 (define (char-doublequote? c) (eq? c #\"))
 
-(define (read-string)
+(define (read-str)
   (let ((str (read-while (compose not char-doublequote?))))
     (read-char)
     str))
@@ -54,7 +54,7 @@
             ((close-bracket? next) (begin (read-char) '(close-bracket)))
             ((char-colon? next) (begin (read-char) (list 'keyword (read-keyword))))
             ((char-numeric? next) (list 'number (read-number)))
-            ((char-doublequote? next) (begin (read-char) (list 'string (read-string))))
+            ((char-doublequote? next) (begin (read-char) (list 'string (read-str))))
             ((char-symbol? next) (list 'symbol (read-symbol)))
             (else (print "Malformed expression")))))