kiss-lang/kiss
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases Wiki Activity

Improve the ~ reader macro

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-06 13:41:08 -07:00
parent 736245f7db
commit 08517705ce
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/kiss/Reader.hx
View File

@@ -76,7 +76,12 @@ class Reader {
readTable["!"] = (stream:Stream, k) -> CallExp(Symbol("not").withPos(stream.position()), [assertRead(stream, k)]);
// Helpful for quickly debugging an expression by printing the value:
readTable["~"] = (stream:Stream, k) -> CallExp(Symbol("print").withPos(stream.position()), [assertRead(stream, k)]);
readTable["~"] = (stream:Stream, k) -> {
var pos = stream.position();
var expToPrint = assertRead(stream, k);
var expToPrintRepresentation = StrExp(Reader.toString(expToPrint.def)).withPos(pos);
CallExp(Symbol("print").withPos(pos), [expToPrint, expToPrintRepresentation]);
}
// Helpful for defining predicates to pass to Haxe functions:
readTable["?"] = (stream:Stream, k) -> CallExp(Symbol("Prelude.truthy").withPos(stream.position()), [assertRead(stream, k)]);