corected the implementation of strcmp and put it in to a separate function

2025-12-24 12:41:20 +01:00
parent 770d795872
commit ca43cea785
1 changed files with 8 additions and 1 deletions
--- a/strcmp.sl
+++ b/strcmp.sl
@@ -1,7 +1,14 @@
 import stdlib/stdlib.sl
 import stdlib/io.sl
-: main
+: strcmp
-    "gffl" drop @ "gffl" drop @ ==
+    3 pick 2 pick @ swap @ ==
-    puti cr
+;
 : main
    "g" "g"
    strcmp
    puti cr
    puts
    puts
 ;