Skip to content

Commit

Permalink
[ wip ] Add chezscheme mark to the generated files
Browse files Browse the repository at this point in the history
This will allow us in the future (after the Idris version release)
to use the direct `#!bwp` syntax for the BWP value.
  • Loading branch information
buzden committed Dec 26, 2022
1 parent 247e608 commit 2889378
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 0 deletions.
1 change: 1 addition & 0 deletions src/Compiler/Scheme/Chez.idr
Original file line number Diff line number Diff line change
Expand Up @@ -90,6 +90,7 @@ schHeader chez libs whole
else "") ++ """
;; \{ generatedString "Chez" }
(import (chezscheme))
#!chezscheme
(case (machine-type)
[(i3fb ti3fb a6fb ta6fb) #f]
[(i3le ti3le a6le ta6le tarm64le) (load-shared-object "libc.so.6")]
Expand Down
1 change: 1 addition & 0 deletions src/Compiler/Scheme/ChezSep.idr
Original file line number Diff line number Diff line change
Expand Up @@ -37,6 +37,7 @@ schHeader : List String -> List String -> String
schHeader libs compilationUnits = """
(import (chezscheme) (support)
\{ unwords ["(" ++ cu ++ ")" | cu <- compilationUnits] })
#!chezscheme
(case (machine-type)
[(i3le ti3le a6le ta6le tarm64le) (load-shared-object "libc.so.6")]
[(i3osx ti3osx a6osx ta6osx tarm64osx) (load-shared-object "libc.dylib")]
Expand Down

0 comments on commit 2889378

Please sign in to comment.