~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Lots more has happened.
[sod]
/
lex.lisp
diff --git
a/lex.lisp
b/lex.lisp
index
1583b11
..
2d1c4de
100644
(file)
--- a/
lex.lisp
+++ b/
lex.lisp
@@
-231,8
+231,7
@@
"struct" "union" "enum"))
(defclass sod-lexer (lexer)
"struct" "union" "enum"))
(defclass sod-lexer (lexer)
- ((keywords :initarg :keywords :initform *sod-keywords*
- :type hash-table :reader lexer-keywords))
+ ()
(:documentation
"Lexical analyser for the SOD lanuage.
(:documentation
"Lexical analyser for the SOD lanuage.
@@
-310,9
+309,8
@@
(char= ch #\_))))
(return))))))
(char= ch #\_))))
(return))))))
- ;; Check to see whether we match any keywords.
- (multiple-value-bind (keyword foundp) (gethash id keywords)
- (return (values (if foundp keyword :id) id)))))
+ ;; Done.
+ (return (values :id id))))
;; Pick out numbers. Currently only integers, but we support
;; multiple bases.
;; Pick out numbers. Currently only integers, but we support
;; multiple bases.