diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-05-08 11:16:45 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-05-08 11:16:45 -0700 |
| commit | 1d5bfd6ebd47444034478bdce836946085ca1367 (patch) | |
| tree | 819c492da86117960837eff2322e9f8ffc41573a /tests/011/macros-2.expected | |
| parent | 7025b2c547d3611301e3e6fde8422aaba2acfd3f (diff) | |
| download | txr-1d5bfd6ebd47444034478bdce836946085ca1367.tar.gz txr-1d5bfd6ebd47444034478bdce836946085ca1367.tar.bz2 txr-1d5bfd6ebd47444034478bdce836946085ca1367.zip | |
Crack down on redefinitions of built-ins.
* eval.c (builtin, eval_initing): New global variable.
(op_defun, op_defmacro): During initialization, record functions
and macros in builtin hash.
(builtin_reject_test): New static function.
(expand_macrolet): Perform builtin reject test for fbind, lbind,
and macrolet.
(regfun, reg_mac): Add symbol to builtin hash.
(eval_init): GC-protect new hash table variable and initialize it.
Set eval_initing to true over eval initialization.
The flip function is renamed fo flipargs.
(eval_compat_fixup): New function, for dealing with the
operator/function conflict over flip.
* eval.h (eval_compat_fixup): Declared.
* lib.c (compat_fixup): Call eval_compat_fixup.
* tests/011/macros-2.txr: This test was defining a macro called
while which is now illegal. Renamed to whilst.
* tests/011/macros-2.expected: Regenerated.
* txr.1: Function flip renamed to flipargs and documented in
Compatibility section.
Diffstat (limited to 'tests/011/macros-2.expected')
| -rw-r--r-- | tests/011/macros-2.expected | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/011/macros-2.expected b/tests/011/macros-2.expected index 24310618..5cb887f6 100644 --- a/tests/011/macros-2.expected +++ b/tests/011/macros-2.expected @@ -9,9 +9,9 @@ 28 29 30 -(block #:brk-blk-0002 (for nil ((< i 100) nil) nil (block #:cnt-blk-0001 (if (< (sys:setq i (+ i 1)) 20) (return-from #:cnt-blk-0001)) (if (> i 30) (return-from #:brk-blk-0002)) (prinl i)))) -(while break) -(while break) -(while break) -(while break) -(while break) +(block #:brk-blk-0002 (for nil ((< i 100) nil) nil (block #:cnt-blk-0001 (if (< (sys:setq i (succ i)) 20) (return-from #:cnt-blk-0001)) (if (> i 30) (return-from #:brk-blk-0002)) (prinl i)))) +(whilst break) +(whilst break) +(whilst break) +(whilst break) +(whilst break) |