[bug #63084] regexp-test.fs fails

[Stephan Rudlof]

URL:
  <https://savannah.gnu.org/bugs/?63084>

                 Summary: regexp-test.fs fails
                 Project: Gforth
               Submitter: hartrock
               Submitted: Tue 20 Sep 2022 05:17:38 PM UTC
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any


    _______________________________________________________

Follow-up Comments:


-------------------------------------------------------
Date: Tue 20 Sep 2022 05:17:38 PM UTC By: Stephan Rudlof <hartrock>

sr@rs:~/Gforth$ gforth regexp.fs

/usr/local/share/gforth/0.7.9_20220916/regexp.fs:61:42: warning: redefined
or!
/usr/local/share/gforth/0.7.9_20220916/kernel/comp.fs:410:3: warning: original
locationGforth 0.7.9_20220916
Authors: Anton Ertl, Bernd Paysan, Jens Wilke et al., for more type `authors'
Copyright © 2022 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later
<https://gnu.org/licenses/gpl.html>
Gforth comes with ABSOLUTELY NO WARRANTY; for details type `license'
Type `help' for basic help
require regexp-test.fs --- Telephone number match ---
(123) 456-7890 succeeded should succeed 
(123) 456-7890 succeeded should succeed 
(123)-456 7890 failed  should fail 
(123) 456 789 failed  should fail 
(123) 456-7890 succeeded should succeed 
123 456-78909 failed  should fail 

in file included from *the terminal*:1:9: 
/usr/local/share/gforth/0.7.9_20220916/regexp-test.fs:47:8: error: expected
control flow stack item
    (( >>>//<<< {{ [0-9(] -c? || \^ }}
Backtrace:
/usr/local/share/gforth/0.7.9_20220916/kernel/basics.fs:281:17:  0
$7F6246DCC800 throw 
/usr/local/share/gforth/0.7.9_20220916/kernel/cond.fs:81:46:  1 $7F6246DE4A48
c(abort") 
/usr/local/share/gforth/0.7.9_20220916/kernel/cond.fs:95:9:  2 $7F6246DE4C20
cs-item? 
/usr/local/share/gforth/0.7.9_20220916/kernel/cond.fs:133:7:  3 $7F6246DE5060
CS-ROLL 
/usr/local/share/gforth/0.7.9_20220916/regexp.fs:223:20:  4 $7F6246E55B90
name-compsem 
/usr/local/share/gforth/0.7.9_20220916/regexp.fs:235:8:  5 $7F6246E55F90
name-compsem 
  ok

sr@rs:~/Gforth$ 








    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?63084>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/