changed project name from cl-forth to kurt

2024-08-16 10:09:45 +03:00
parent 68947d00aa
commit e90d124892
19 changed files with 52 additions and 18 deletions
--- a/test/arith.lorth
+++ b/test/arith.lorth
--- a/test/bits.lorth
+++ b/test/bits.lorth
--- a/test/branchs.lorth
+++ b/test/branchs.lorth
--- a/test/include.kurt
+++ b/test/include.kurt
@@ -0,0 +1,3 @@
+kütüphane "std.lorth"
+
+stdout "Merhaba Dünya!\n" write
--- a/test/loop.lorth
+++ b/test/loop.lorth
--- a/test/makro.lorth
+++ b/test/makro.lorth
--- a/test/stack.lorth
+++ b/test/stack.lorth
--- a/test/std.kurt
+++ b/test/std.kurt
@@ -0,0 +1,4 @@
+makro sys-write 1 son
+makro write (fd string -- )
+    değiş sys-write syscall-3 son
+makro stdout 1 son
--- a/test/syscall.lorth
+++ b/test/syscall.lorth
--- a/test/tests.lisp
+++ b/test/tests.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-forth)
+(in-package :kurt)

 (defun drop-file-type (file &key (returns :string))
  (let* ((file-str (namestring file))
@@ -73,7 +73,7 @@
                                   (ignore-errors
                                    (run-test file :target target))))
                     (remove-if-not (lambda (file)
-                                      (string= "lorth" (pathname-type file))) 
+                                      (string= "kurt" (pathname-type file))) 
                                    (cl-fad:list-directory
                                     (from-root "test"))))
        counting (eq t success?) into succs