Ekdohibs/camlboot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use pair? for condition on pair

Browse Source
This commit is contained in:
Nathanaël Courant 2020-12-07 21:46:01 +01:00
parent 435d3f8755
commit a5a47ba108
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
miniml/compiler/compile.scm
View File

@ -469,7 +469,7 @@
(define (get-lident s)
(let ((p (assoc s kw)))
(if p (cdr p) (cons 'LIDENT s))))
(if (pair? p) (cdr p) (cons 'LIDENT s))))
(define (mktoken location tk) (make-lexical-token (car tk) location (cdr tk)))
@ -563,7 +563,7 @@
(define (get-operator name)
(let ((p (assoc name operator-kw))
(c (string-ref name 0)))
(cond (p (cdr p))
(cond ((pair? p) (cdr p))
((string-index "!~?" c) (cons 'PREFIXOP name))
((string-index "=<>|&$" c) (cons 'INFIXOP0 name))
((string-index "@^" c) (cons 'INFIXOP1 name))