carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 04:27:55 +03:00
Code Issues Projects Releases Wiki Activity

Emit comment about captured vars (for debugging).

Browse Source
This commit is contained in:
Erik Svedäng 2018-08-27 18:55:21 +02:00
parent 7bfe10e002
commit e950ab6de2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Emit.hs
View File

@ -178,10 +178,14 @@ toC toCMode root = emitterSrc (execState (visit startingIndent root) (EmitterSta
return ""
-- Fn / λ
[XObj (Fn capturedVars) _ _, XObj (Arr argList) _ _, body] ->
[XObj (Fn set) _ _, XObj (Arr argList) _ _, body] ->
do let Just tt@(FuncTy _ retTy) = t
retVar = freshVar i
name = lambdaName tt i
capturedVars = Set.toList set
appendToSrc (addIndent indent ++ "// This lambda captures " ++
show (length capturedVars) ++ " variables: " ++
joinWithComma (map getName capturedVars) ++ "\n")
appendToSrc (addIndent indent ++ "Lambda " ++ retVar ++ " = { .callback = " ++ name ++ ", .env = NULL, .delete = NULL };\n")
return retVar