diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-05 18:07:25 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-05 18:07:25 +0000 |
| commit | ca9bd5d4ce223ee483e2f4913486c730b0c63f2c (patch) | |
| tree | 20cc7fe4def62bdd129fb7928b657d0299baea00 /gcc/melt/warmelt-normal.melt | |
| parent | 5a707a43991cd97dd891cc7e98aca7469f3a8421 (diff) | |
| download | gcc-ca9bd5d4ce223ee483e2f4913486c730b0c63f2c.tar.gz | |
2014-10-05 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-macro.melt (expand_apply, expand_msend)
(macroexpand_1, melt_invoke_translator_runner_macroexpansions)
(mexpand_defmacro): More debug.
* melt/warmelt-normal.melt (normalize_tuple, normexp_symbol): More
debug.
* testsuite/melt/tletmacro-3.melt: Improved, since it was wrong...
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@215903 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-normal.melt')
| -rw-r--r-- | gcc/melt/warmelt-normal.melt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/melt/warmelt-normal.melt b/gcc/melt/warmelt-normal.melt index 208641a4c69..6d35c3fd857 100644 --- a/gcc/melt/warmelt-normal.melt +++ b/gcc/melt/warmelt-normal.melt @@ -1422,7 +1422,7 @@ routine procedures.}# ;;; normalize a tuple - returning a tuple & a bindinglist (defun normalize_tuple (tup env ncx psloc) (debug "normalize_tuple start tup=" tup " psloc=" psloc) - (shortbacktrace_dbg "normalize_tuple" 12) + (shortbacktrace_dbg "normalize_tuple" 16) (assert_msg "check env" (is_a env class_environment) env) (assert_msg "check ncx" (is_a ncx class_normalization_context) ncx) (if (null tup) @@ -1834,7 +1834,7 @@ source location.}# "\n.. ncx=" ncx "\n.. psloc=" psloc ) - (shortbacktrace_dbg "normexp_symbol" 25) + (shortbacktrace_dbg "normexp_symbol" 32) (assert_msg "check ncx" (is_a ncx class_normalization_context) ncx) (assert_msg "check recv" (is_a recv class_symbol) recv) (multicall @@ -3151,7 +3151,7 @@ source location.}# ;;; normalize an application (defun normexp_apply (recv env ncx psloc) (debug "normexp_apply" " recv=" recv "\n.. env=" env "\n.. ncx=" ncx "\n.. psloc=" psloc) - (shortbacktrace_dbg "normexp_apply" 15) + (shortbacktrace_dbg "normexp_apply" 18) (assert_msg "check apply recv" (is_a recv class_source_apply) recv) (assert_msg "check env" (is_a env class_environment) env) (assert_msg "check ncx" (is_a ncx class_normalization_context) ncx) |