simyager/kurt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

inclusion of library from the exe path

Browse Source
This commit is contained in:
mRnea
2024-08-18 17:09:44 +03:00
parent dbfa435e63
commit 30e2c565fb
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
cl-forth.lisp
View File

@@ -155,7 +155,7 @@
;; (parser-parse-tokens parser makrodef) ;; (parser-parse-tokens parser makrodef)
(setf (tokens parser) (append makrodef (tokens parser))) (setf (tokens parser) (append makrodef (tokens parser)))
(error "parse-token: token has unknown identifier: ~a" (error "parse-token: token has unknown identifier: ~a"
(read-token parser))))) token))))
;; (defmethod parser-parse-tokens ((parser parser) tokens) ;; (defmethod parser-parse-tokens ((parser parser) tokens)
;; (iter (for makro-op in-vector) ;; (iter (for makro-op in-vector)
@@ -215,8 +215,11 @@
(push tok makrodef))))) (push tok makrodef)))))
(defmethod parse-op ((parser parser) token (id (eql :kütüphane))) (defmethod parse-op ((parser parser) token (id (eql :kütüphane)))
"Library and the executable must be in the same location, no other search is made currently."
(let ((file (car (read-token parser)))) (let ((file (car (read-token parser))))
(setf (tokens parser) (append (lex-file file) (tokens parser))))) (setf (tokens parser)
(append (lex-file (merge-pathnames file sb-ext:*core-pathname*))
(tokens parser)))))
(defun parse-tokens (tokens) (defun parse-tokens (tokens)
(let ((parser (make-parser tokens))) (let ((parser (make-parser tokens)))