sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A little more match.

This commit is contained in:
sforman 2023-10-11 20:36:01 -07:00
parent c4d80f6c4e
commit 205086714d
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
implementations/scheme-chicken/joy.scm
View File

@ -101,10 +101,10 @@
(values (cons (joy-bool-term (car stack)) (cdr stack)) expression dict))
(define (joy-bool-term term)
(cond ((boolean? term) term)
((number? term) (not-equal 0 term))
((list? term) (not (null? term)))
(else #t)))
(cond ((boolean? term) term)
((number? term) (not-equal 0 term))
((list? term) (not (null? term)))
(else #t)))
; ██████╗ ██████╗ ███╗ ███╗██████╗ ██╗███╗ ██╗ █████╗ ████████╗ ██████╗ ██████╗ ███████╗
@ -166,14 +166,13 @@
(expect-right-bracket-lookahead (car tokens) (cdr tokens) acc)))
(define (expect-right-bracket-lookahead token tokens acc)
(cond ((string=? token "]") (values acc tokens))
((string=? token "[")
(receive (sub_list rest) (expect-right-bracket tokens '())
(receive (el rrest) (expect-right-bracket rest acc)
(values (cons sub_list el) rrest))))
(else
(receive (el rest) (expect-right-bracket tokens acc)
(values (cons (tokenator token) el) rest)))))
(match token
("]" (values acc tokens))
("[" (receive (sub_list rest) (expect-right-bracket tokens '())
(receive (el rrest) (expect-right-bracket rest acc)
(values (cons sub_list el) rrest))))
(_ (receive (el rest) (expect-right-bracket tokens acc)
(values (cons (tokenator token) el) rest)))))
(define (one-token-lookahead token tokens)
(match token