Remove lookup-char.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 10:26:35 +0000 (11:26 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 23 Dec 2016 10:26:35 +0000 (11:26 +0100)
* reader.c (lookup_char): Remove.
* module/mes/read-0.mes (lookup-char): Remove.
  (read-word): Rewrite using quote.

module/mes/read-0.mes
reader.c

index 88fd9940b2efdf1d03a817694584247afd826242..6e4a267e35d14350c0f3faf42ef91019a23a78c1 100644 (file)
        (#t (read-string (read-byte) (peek-byte) (append-char s c)))))
     (list->string (read-string (read-byte) (peek-byte) (list))))
   
-  (define (lookup-char c a)
-    (lookup (cons (integer->char c) (list)) a))
-
   (define (read-word c w a)
     (cond
      ((eq? c 32) (if (null? w) (read-word (read-byte) (list) a)
                                                (cons
                                                 (lookup (symbol->list (quote unquote-splicing)) a)
                                                 (cons (read-word (read-byte) w a) (list)))))
-                  (#t (cons (lookup-char c a) (cons (read-word (read-byte) w a)
-                                                    (list))))))
-     ((eq? c 96) (cons (lookup-char c a) (cons (read-word (read-byte) w a) (list))))
+                  (#t (cons (quote unquote) (cons (read-word (read-byte) w a)
+                                                      (list))))))
+     ((eq? c 96) (cons (quote quasiquote) (cons (read-word (read-byte) w a) (list))))
      ((eq? c 59) (read-line-comment c) (read-word 10 w a))
      ((eq? c -1) (list))
      (#t (read-word (read-byte) (append2 w (cons (integer->char c) (list))) a))))
index 1ed80af5496f139484173ba4c8821f88200d5000..6ff8ffd9006bc88290d8f464bc1a45ce4b13b6a2 100644 (file)
--- a/reader.c
+++ b/reader.c
@@ -43,9 +43,6 @@ read_line_comment (int c)
   return read_line_comment (getchar ());
 }
 
-
-SCM lookup_char (int c, SCM a);
-
 SCM
 read_word (int c, SCM w, SCM a)
 {
@@ -136,12 +133,6 @@ lookup (SCM s, SCM a)
   return internal_make_symbol (s);
 }
 
-SCM
-lookup_char (int c, SCM a)
-{
-  return lookup (cons (make_char (c), cell_nil), a);
-}
-
 SCM
 list_of_char_equal_p (SCM a, SCM b)
 {