From 9302bb2272f4e90b057548afe7c406f52b773e62 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 29 May 2013 15:34:35 +0000
Subject: Simplify backend functions

---
 src/interp/debug.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/debug.lisp')

diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp
index cae598bf..ba5fee2c 100644
--- a/src/interp/debug.lisp
+++ b/src/interp/debug.lisp
@@ -157,7 +157,7 @@
          METAKEYLST DEFINITION_NAME (|$sourceFileTypes| '(|spad| |boot| |lisp| |lsp| |meta|))
          ($FUNCTION FN) $NEWSPAD $LINESTACK $LINENUMBER STACK STACKX BACK OK
          TRAPFLAG |$InteractiveMode| COLUMN *QUERY LINE
-         (|$backend| (if (eq op 'define) #'eval-defun #'compile-defun)))
+         (|$backend| #'|evaluateLispDefinition|))
         (declare (special |$Echo| SINGLINEMODE INPUTSTREAM |$backend|
                      SPADERRORSTREAM ISID NBLNK COMMENTCHR /SOURCEFILES
                      METAKEYLST DEFINITION_NAME |$sourceFileTypes|
-- 
cgit v1.2.3