Changeset 38916 in project


Ignore:
Timestamp:
08/29/20 21:43:54 (4 weeks ago)
Author:
Kon Lovett
Message:

convert to begin

Location:
release/5/slib-prec/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/slib-prec/trunk/slib-prec-grammar.scm

    r38915 r38916  
    195195        (sexp (reader)) )
    196196        (if (eof-object? sexp)
    197           (reverse! ls)
     197          `(begin ,@(reverse! ls))
    198198          ;FIXME track column!
    199199          (loop (cons sexp ls) 0) ) ) ) ) )
  • release/5/slib-prec/trunk/tests/slib-prec-test.scm

    r38915 r38916  
    109109
    110110  (test
    111     '((+ (first a) (second a)) (apply r a) (- 23 skidoo))
     111    '(begin (+ (first a) (second a)) (apply r a) (- 23 skidoo))
    112112    (with-input-from-string
    113113      "first(a) + second(a); apply(r, a); 23-skidoo"
     
    116116  ;FIXME handle infinities & nan
    117117  (test
    118     '((define f (lambda a (+ (first a) (second a)) (apply r a))) (f 1 (+ inf.0)))
     118    '(begin (define f (lambda a (+ (first a) (second a)) (apply r a))) (f 1 (+ inf.0)))
    119119    (with-input-from-string
    120120     ;NOTE ;; is lambda-right-delim + expression-delim
Note: See TracChangeset for help on using the changeset viewer.