From 1c23dbb833410b2638fdb3b2b0fef083b87ab670 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Fri, 14 Aug 2020 12:10:47 -0400
Subject: Add error messages to the runtime

---
 src/pr.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/pr.bqn')

diff --git a/src/pr.bqn b/src/pr.bqn
index a93bd4eb..4c789a3c 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -34,7 +34,7 @@ names ↩ (⥊¨kt⊏chr)⌾(ki⊸⊏)names
 E_isdef ← (3≤≠)◶⟨0,∧´⟨chr," ","←↩"⟩∊˜¨3⊸↑⟩
 E_proc ← ({𝕨∘𝕩}´ {𝕨•_R_𝕩}⟜⥊¨⟜(≠↑chr˜) def)∘{
   l←≠chr
-  q←≠`𝕩∊"""'" ⋄ f←¬∨`q¬⊸∧𝕩='#'
+  q←≠`𝕩='"' ⋄ q∨↩≠`q<𝕩=''' ⋄ f←¬∨`q<𝕩='#'
   ∾ (((l×f/q)+chr⊸⊐) (≥⟜l)◶⟨⊑⟜names,⥊∘⊢⟩¨ ⊢) f/𝕩
 }
 E_redef ← { # handles [fmd] [←↩]
-- 
cgit v1.2.3