add uninterned literals symbols #265

lib/srfi/258.scm

@@ -10,7 +10,21 @@
    Returns #t if symbol is an interned (ordinary) symbol, and #f
    if it is uninterned."
   (typecheck "symbol-interned?" symbol "symbol")
-  (let ((copy (new lips.LSymbol symbol.__name__)))
-    (eq? copy symbol)))
+  symbol.__interned__)
 
-(define generate-uninterned-symbol gensym)
+(define generate-uninterned-symbol
+  (let ((count 0))
+    (lambda args
+      (let ((prefix (if (null? args)
+                        ":"
+                        (car args))))
+        (typecheck "generate-uninterned-symbol" prefix "string")
+        (let ((name (string-append prefix
+                                   (number->string count))))
+          (set! count (+ count 1))
+          (lips.LSymbol name #f))))))
+
+(set-special! ":|" '%uninterned-symbol)
+
+(define (%uninterned-symbol symbol)
+  `(quote ,(lips.LSymbol symbol.__name__ #f)))

src/lips.js

@@ -740,7 +740,7 @@ function strip_s_comments(tokens) {
 // ----------------------------------------------------------------------
 // Detect if object is ES6 Symbol that work with polyfills
 // ----------------------------------------------------------------------
-function isSymbol(x) {
+function is_symbol(x) {
     return typeof x === 'symbol' ||
         typeof x === 'object' &&
         Object.prototype.toString.call(x) === '[object Symbol]';
@@ -759,6 +759,7 @@ function LSymbol(name, interned = true) {
         typeof this === 'undefined') {
         return new LSymbol(name, interned);
     }
+    read_only(this, '__interned__', interned);
     this.__name__ = name;
     if (interned && typeof name === 'string') {
         LSymbol.list[name] = this;
@@ -777,10 +778,13 @@ LSymbol.is = function(symbol, name) {
 // ----------------------------------------------------------------------
 LSymbol.prototype.toString = function(quote) {
     //return '#<symbol \'' + this.name + '\'>';
-    if (isSymbol(this.__name__)) {
+    if (is_symbol(this.__name__)) {
         return symbol_to_string(this.__name__);
     }
     var str = this.valueOf();
+    if (!this.__interned__) {
+        return `:|${str}|`;
+    }
     // those special characters can be normal symbol when printed
     if (quote && str.match(/(^;|[\s()[\]'])/)) {
         return `|${str}|`;