Changeset 31401 in project


Ignore:
Timestamp:
09/12/14 09:32:08 (5 years ago)
Author:
Ivan Raikov
Message:

ersatz: added characters to the objects recognized by sexpr->tvalue

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/ersatz/trunk/ersatz-lib.scm

    r31393 r31401  
    269269   ((number? x)     (Tfloat x))
    270270   ((string? x)     (Tstr x))
     271   ((char? x)       (Tstr (->string x)))
    271272   ((symbol? x)     (Tstr (->string x)))
    272273   ((procedure? x)  (Tfun x))
    273274   ((vector? x)     (Tset (map sexpr->tvalue (vector->list x))))
     275   ((null? x)       (Tlist '()))
    274276   ((pair? x)
    275277    (cond
    276      ((eq? x '(tnull)) (Tnull))
    277278     ((and (pair? (car x)) (symbol? (car (car x))))
    278279      (Tobj (map (lambda (x) (cons (car x) (sexpr->tvalue (cdr x)))) x)))
Note: See TracChangeset for help on using the changeset viewer.