R: add step6_file and step7_quote

[jackhill/mal.git] / r / types.r

diff --git a/r/types.r b/r/types.r
index 2816143..a3eebcf 100644 (file)
--- a/r/types.r
+++ b/r/types.r
@@ -66,6 +66,8 @@ get_error <- function(e) {
 # Scalars
 nil <- structure("malnil", class="nil")
 .nil_q <- function(obj) "nil" == class(obj)
+new.symbol <- function(name) structure(name, class="Symbol")
+.symbol_q <- function(obj) "Symbol" == class(obj)
 
 # Functions