diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-31 13:26:04 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-31 13:26:04 +0000 |
| commit | 06c50c2bcf5755c2e7c375e260e295f84d237e3c (patch) | |
| tree | 43ddf9c87893a669a817fc4bb0d83289f78e0360 /gcc/melt/warmelt-modes.melt | |
| parent | f69855120de0eac60dc8da55c836872d66e0dd31 (diff) | |
| download | gcc-06c50c2bcf5755c2e7c375e260e295f84d237e3c.tar.gz | |
2013-07-31 Basile Starynkevitch <basile@starynkevitch.net>
* melt/warmelt-hooks.melt: Improve assert_msg with variadic arguments.
* melt/warmelt-macro.melt: Improve assert_msg with variadic arguments.
* melt/warmelt-modes.melt: Improve few assert_msg. Most improvements still to be made.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@201372 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-modes.melt')
| -rw-r--r-- | gcc/melt/warmelt-modes.melt | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/melt/warmelt-modes.melt b/gcc/melt/warmelt-modes.melt index 440b10e0386..5a68af958dc 100644 --- a/gcc/melt/warmelt-modes.melt +++ b/gcc/melt/warmelt-modes.melt @@ -34,7 +34,7 @@ (defun install_melt_mode (mode) :doc #{$INSTALL_MELT_MODE installs a new MELT mode, ie an instance of $CLASS_MELT_MODE.}# - (assert_msg "check mode" (is_a mode class_melt_mode)) + (assert_msg "check mode" (is_a mode class_melt_mode) mode) (let ( (cmdict (get_field :sysdata_mode_dict initial_system_data)) (cnam (get_field :named_name mode)) ) @@ -60,7 +60,7 @@ " initial_environment=" initial_environment " inarg=" inarg " outarg=" outarg) - (assert_msg "check curenv" (is_a curenv class_environment)) + (assert_msg "check curenv" (is_a curenv class_environment) curenv) (let ( (modulnam ()) (modsrcname (cond @@ -123,7 +123,7 @@ has basic debug support thru DEBUG, ASSERT_MSG..." " initial_environment=" initial_environment " inarg=" inarg " outarg=" outarg) - (assert_msg "check curenv" (is_a curenv class_environment)) + (assert_msg "check curenv" (is_a curenv class_environment) curenv) (let ( (modulnam ()) (modsrcname (cond @@ -194,7 +194,7 @@ has basic debug support thru DEBUG, ASSERT_MSG..." "\n curenv=" curenv " inarg=" inarg "\n inexprs=" inexprs) - (assert_msg "check curenv" (is_a curenv class_environment)) + (assert_msg "check curenv" (is_a curenv class_environment) curenv) (let ( (:long nbexprs (list_length inexprs)) (newenv (fresh_env curenv)) |