perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r35137 - trunk/languages/befunge

Subject: [svn:parrot] r35137 - trunk/languages/befunge
From:
Date: Wed, 7 Jan 2009 09:25:04 -0800 PST
Newsgroups: perl.cvs.parrot

Author: jquelin
Date: Wed Jan  7 09:25:04 2009
New Revision: 35137

Modified:
   trunk/languages/befunge/load.pir

Log:
off-by-one error: each line is 80 columns long


Modified: trunk/languages/befunge/load.pir
==============================================================================
--- trunk/languages/befunge/load.pir    (original)
+++ trunk/languages/befunge/load.pir    Wed Jan  7 09:25:04 2009
@@ -94,7 +94,6 @@
 
     i     = 0
     len   = length str
-    dec len
     array = new 'ResizablePMCArray'
   _LOAD__STR_TO_ARRAY__NEXT_CHAR:
     if i == len goto _LOAD__STR_TO_ARRAY__DONE

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r35137 - trunk/languages/befunge, jquelin <=