diff options
Diffstat (limited to 'stdlib/source/lux/compiler.lux')
-rw-r--r-- | stdlib/source/lux/compiler.lux | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/stdlib/source/lux/compiler.lux b/stdlib/source/lux/compiler.lux index d1f71a6c3..fd438b1a3 100644 --- a/stdlib/source/lux/compiler.lux +++ b/stdlib/source/lux/compiler.lux @@ -15,7 +15,7 @@ [product] [ident "Ident/" Codec<Text,Ident>] maybe - error))) + [error #- fail]))) ## (type: (Lux a) ## (-> Compiler (Error [Compiler a]))) @@ -557,3 +557,8 @@ _ (wrap def-name)))) + +(def: #export get-compiler + (Lux Compiler) + (lambda [compiler] + (#;Right [compiler compiler]))) |