scheme-bytecode/expected-meta.txt at master · taimoon/scheme-bytecode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
____________
6
((define interpreter-file
   (let ([args (command-line)])
     (if (and (pair? args) (pair? (cdr args)))
         (cadr args)
         "interpreter.scm")))
  (pretty-print '____________)
  (load interpreter-file)
  (interp*
    `(begin
       (load "top-prog.scm")
       (pretty-print (apply + '(1 2 3)))
       (pretty-print (read-sexps "test-meta-lisp.scm"))
       (pretty-print 'loading-meta)
       (load ,interpreter-file)
       (pretty-print 'end-of-loading)
       (load "test-lisp.scm"))))
loading-meta
end-of-loading
===========
************
"testing time"
simple
7
45
25
if
17
let
25
proc
25
cond
#t
fact
3628800
fact-iter-mutual
3628800
fib
89
data
(0 2 4 6)
improper-argument
((1 3 5 7) (2 4 6))
scope
(2 . 3)
3
(interp** . 25)
let*
9
named-let
55
closure
(1 2 3 4 5 6)
6
load
(11 7 1 2 3 4 5)