Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Cleanup

This commit is contained in:
retropikzel 2025-07-12 17:28:28 +03:00
parent 1ffbb2c547
commit a315ca5d1d
3 changed files with 426 additions and 461 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -69,7 +69,6 @@ clean:
find . -name "*.link" -delete find . -name "*.link" -delete
find . -name "*.meta" -delete find . -name "*.meta" -delete
find . -name "*.import.*" -delete find . -name "*.import.*" -delete
rm -rf README.txt
rm -rf dist rm -rf dist
rm -rf test rm -rf test
rm -rf deps rm -rf deps

8
README.md
View File

@ -124,9 +124,6 @@ as compiler.
<a name="#roadmap"></a> <a name="#roadmap"></a>
- Support for more implementations - Support for more implementations
- gerbil
- Dont know how to run this thing yet :D
- r7rs
- husk - husk
- Dont know how to add directories to load path yet, might not be - Dont know how to add directories to load path yet, might not be
implemented implemented
@ -251,11 +248,6 @@ before running it. For example:
If you are using Chicken you should propably read the next section too, you If you are using Chicken you should propably read the next section too, you
will most propably run into it soon. will most propably run into it soon.
### Mosh
<a name="#usage-mosh"></a>
Only allows one loadpath. No workarounds exist currently in compile-r7rs.
### mit-scheme ### mit-scheme
<a name="#usage-mit-scheme"></a> <a name="#usage-mit-scheme"></a>

26
libs/data.sld
View File

@ -201,32 +201,6 @@
append-directories) append-directories)
" " " "
,input-file))))) ,input-file)))))
(gerbil
(type . compiler)
#;(library-command . ,(lambda (library-file prepend-directories append-directories r6rs?)
(apply string-append
`("gxc"
" "
,(util-getenv "COMPILE_R7RS_GERBIL")
" "
,library-file))))
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)
(apply string-append
`("gxc"
" "
,(util-getenv "COMPILE_R7RS_GERBIL")
" "
"-prelude \":scheme/r7rs\""
" "
"-exe"
" "
"-static"
" "
,@(map (lambda (item) (string-append item "/ ")) prepend-directories)
,@(map (lambda (item) (string-append item "/ ")) append-directories)
" "
" "
,input-file)))))
(guile (guile
(type . interpreter) (type . interpreter)
(command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?) (command . ,(lambda (input-file output-file prepend-directories append-directories library-files r6rs?)