diff options
| author | Rene Ladan <rene@FreeBSD.org> | 2024-04-10 21:11:35 +0200 |
|---|---|---|
| committer | Rene Ladan <rene@FreeBSD.org> | 2024-04-10 21:12:09 +0200 |
| commit | 820bb223f0f2e0239ea6e1719161c76f0d1ad7ca (patch) | |
| tree | 4d936bd8a70dfd8febd1cf9dc12151fa5e8992a1 /lang/qscheme/files/patch-s.scm | |
| parent | Mk/Scripts/do-users-groups.sh: Make message endings consistent (cleanup) (diff) | |
lang/qscheme: Remove expired port
2024-04-10 lang/qscheme: Unmaintained and there are more modern alternatives
Diffstat (limited to 'lang/qscheme/files/patch-s.scm')
| -rw-r--r-- | lang/qscheme/files/patch-s.scm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/lang/qscheme/files/patch-s.scm b/lang/qscheme/files/patch-s.scm deleted file mode 100644 index acf680b24b85..000000000000 --- a/lang/qscheme/files/patch-s.scm +++ /dev/null @@ -1,29 +0,0 @@ ---- s.scm.orig Thu Dec 6 04:56:07 2001 -+++ s.scm Thu Dec 6 04:56:26 2001 -@@ -252,7 +252,26 @@ - (define hset! hash-set!) - - ; General purpose functions --(load "sgtk/defextern.scm") -+;(load "sgtk/defextern.scm") -+ -+(define *lib* "") -+ -+(define-macro (extern type name . args) -+ `(make-extfunc *lib* ,type ,(symbol->string name) (quote ,@args))) -+ -+; simplified exteral declarator: -+; -+; (define-extern :RETURN-TYPE CFUNC-NAME :ARG1 :ARG2... [. :ANY]) -+; -+(define (cname->scheme x) -+ (string->symbol (string-translate (symbol->string x) "_" "-"))) -+ -+(define-macro (define-extern t n . a) -+; (write -+ `(define ,(cname->scheme n) -+ (make-extfunc *lib* ,t ,(symbol->string n) (quote ,a)))) -+; ) -+ - - ;; (load "repl.scm") |