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

minor edits

This commit is contained in:
sforman 2023-10-20 22:16:21 -07:00
parent 0fcd217f2c
commit 3e72ce494a
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -257,8 +257,7 @@
(if (not (eof-object? text))
(receive (stack dict)
(handle-exceptions exn
(begin (display exn) (newline)
(values stack0 dict0))
(begin (display exn) (newline) (values stack0 dict0))
(joy stack0 (text->expression text) dict0))
(print (joy-expression->string (reverse stack)))
(main-loop stack dict))
@ -278,18 +277,18 @@
; Importing srfi-67 did not actually make available symbol-compare. Boo!
(define (symbol<? a b) (string<? (symbol->string a) (symbol->string b)))
;(define (symbol<? a b) (string<? (symbol->string a) (symbol->string b)))
; a BTree is a four-tuple of (name value left right) | ()
(define (btree-get key btree)
(match btree
(() (abort "Key not found."))
((k value left right)
(if (eq? key k)
value
(btree-get key (if (symbol<? key k) left right))))
(_ (abort "Not a BTree."))))
;(define (btree-get key btree)
; (match btree
; (() (abort "Key not found."))
; ((k value left right)
; (if (eq? key k)
; value
; (btree-get key (if (symbol<? key k) left right))))
; (_ (abort "Not a BTree."))))