From 3d2845f2944ef92a12b9004624683b7434423f10 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 24 Feb 2015 00:29:26 -0800
Subject: 829 - warn if I forgot to freeze a function

---
 mu.arc | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mu.arc b/mu.arc
index 1dbcb4ae..42efca71 100644
--- a/mu.arc
+++ b/mu.arc
@@ -446,11 +446,12 @@
 ; routines consist of instrs
 ; instrs consist of oargs, op and args
 (def parse-instr (instr)
-;?   (prn instr)
   (iflet delim (pos '<- instr)
-    (list (cut instr 0 delim)  ; oargs
-          (v (instr (+ delim 1)))  ; op
-          (cut instr (+ delim 2)))  ; args
+    (do (when (atom (instr (+ delim 1)))
+          (err "operator not tokenized in @instr; maybe you need to freeze functions*?"))
+        (list (cut instr 0 delim)  ; oargs
+              (v (instr (+ delim 1)))  ; op
+              (cut instr (+ delim 2))))  ; args
     (list nil (v car.instr) cdr.instr)))
 
 (def metadata (operand)
-- 
cgit 1.4.1-2-gfad0