diff options
| author | Joel Martin <github@martintribe.org> | 2014-11-03 22:29:51 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-01-09 16:16:45 -0600 |
| commit | f947d503f748fd1218f502ef1394ff9e28175ef8 (patch) | |
| tree | 732223892a330b317c78320a09469be7d0f49f31 /r/printer.r | |
| parent | 36737ae57ee106be16426bf9ef088380421ca0ec (diff) | |
| download | mal-f947d503f748fd1218f502ef1394ff9e28175ef8.tar.gz mal-f947d503f748fd1218f502ef1394ff9e28175ef8.zip | |
R: atom support, fixes for self-hosting.
Diffstat (limited to 'r/printer.r')
| -rw-r--r-- | r/printer.r | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/r/printer.r b/r/printer.r index 1957210..e684b03 100644 --- a/r/printer.r +++ b/r/printer.r @@ -42,10 +42,11 @@ if(!exists("..types..")) source("types.r") "logical"={ tolower(exp) }, "MalFunc"={ paste("(fn* ", .pr_str(exp$params,TRUE), - " ", .pr_str(exp$ast, FALSE), ")", sep="") + " ", .pr_str(exp$ast, TRUE), ")", sep="") }, "function"={ "<#function>" }, + "Atom"={ + paste("(atom ", .pr_str(exp$val,TRUE), ")", sep="") + }, { toString(exp) }) } - - |