bug in PARY

2010-01-10 04:31:31 +00:00 · 2010-01-10 04:31:31 +00:00 · 271e23caa5
parent ed77e4e920
commit 271e23caa5
1 changed files with 1 additions and 1 deletions
--- a/p/C0CXPATH.m
+++ b/p/C0CXPATH.m
@ -628,7 +628,7 @@ PARY(GLO,ZN)	      ;PRINT AN ARRAY
 ; IF ZN=-1 NO LINE NUMBERS
 N I
 F I=1:1:@GLO@(0) D  ;
- . I ZN=-1 W @GLO@(I),!
+ . I $G(ZN)=-1 W @GLO@(I),!
 . E  W I_" "_@GLO@(I),!
 Q
 ;