From d86b91af36e93b44c2df825750adeb607e49b52d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 16 Mar 2017 14:11:46 +0000 Subject: [PATCH] Remove debug code --- scheme/base.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index 9ef17deb..b9b026b9 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -988,8 +988,8 @@ ((null? args) ;; DEBUG (let ((pobj (get-param-objs))) - (if (not (pair? (car pobj))) - (Cyc-display `(get-param-objs not a list: ,(get-param-objs)))) + ;(if (not (pair? (car pobj))) + ; (Cyc-display `(get-param-objs not a list: ,(get-param-objs)))) (cdr (assoc key pobj)))) ;; END DEBUG ;(cdr (assoc key (get-param-objs))))