diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-09-09 07:06:31 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-09-09 07:06:31 -0700 |
commit | ab77a519ba5d9ad21a1cc732d78b6b49e9ca2c2b (patch) | |
tree | 9d32b53621f50414ae85d4fdc4b79cf04268e199 /tests | |
parent | c6c05649f5d3890281e6fe95694794d39f6f0841 (diff) | |
download | txr-ab77a519ba5d9ad21a1cc732d78b6b49e9ca2c2b.tar.gz txr-ab77a519ba5d9ad21a1cc732d78b6b49e9ca2c2b.tar.bz2 txr-ab77a519ba5d9ad21a1cc732d78b6b49e9ca2c2b.zip |
More informative printed rep for functions.
* lib.c (obj_print_impl): Print whether
a function is interpreted or intrinsic, and
include argument information.
* tests/012/struct.tl: Test case relying on
function printed rep updated.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/012/struct.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/012/struct.tl b/tests/012/struct.tl index 047204a6..5be89cab 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -103,7 +103,7 @@ (defvarl bz (new baz)) (stest bz - "#S(baz array #(1 2 3) increment #<function: type 0>)") + "#S(baz array #(1 2 3) increment #<interpreted fun: lambda (self which delta)>)") (test bz.[array 2] 3) (test bz.(increment 0 42) 43) |