Skip to content

Instantly share code, notes, and snippets.

@aergus
Last active August 29, 2015 14:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aergus/a9828722cb2f73ccf6ad to your computer and use it in GitHub Desktop.
Save aergus/a9828722cb2f73ccf6ad to your computer and use it in GitHub Desktop.
LambdaLisp do block which may be the cause of an error
{ cur <- (CAR stack);
pr <- (_handleDirR map cur 0);
newStack <- (IF (== -1 (CAR pr))
(CDR stack)
(: (_applyDir cur (CAR pr)) stack)
);
(IF (== counter 0) newStack
(_lambdaDFSR target newStack (CDR pr) (+ counter 1))
)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment