diff options
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 93f21894693..93ace4ea026 100644 --- a/gcc/melt/warmelt-normal.melt +++ b/gcc/melt/warmelt-normal.melt @@ -1099,14 +1099,14 @@ source location.}# (debug_msg bind "normexp_symbol after find_enclosing_env bind") (debug_msg procs "normexp_symbol after find_enclosing_env procs") (assert_msg "normexp_symbol check recv" (is_a recv class_symbol)) + (if (null psloc) + (shortbacktrace_dbg "normex_symbol null psloc" 10) + ) (if (null bind) (progn (error_strv psloc "unbound symbol to normalize" (unsafe_get_field :named_name recv)) (return ()))) - (if (null psloc) - (shortbacktrace_dbg "normex_symbol null psloc" 10) - ) (let ( (sycmap (unsafe_get_field :nctx_symbcachemap ncx)) (syca (mapobject_get sycmap recv)) ) (assert_msg "check sycmap" (is_mapobject sycmap)) |