diff options
| author | Arun Isaac | 2025-01-09 23:43:36 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-01-19 16:44:26 +0000 |
| commit | c02207dbfebe55e29469e998b8178085f593bb63 (patch) | |
| tree | b62956ed20cd45d0e94e7fae94cae1a53317b260 /.dir-locals.el | |
| parent | 454a5266124416aa0a91881612b9513666c18b2f (diff) | |
| download | ravanan-c02207dbfebe55e29469e998b8178085f593bb63.tar.gz ravanan-c02207dbfebe55e29469e998b8178085f593bb63.tar.lz ravanan-c02207dbfebe55e29469e998b8178085f593bb63.zip | |
monads: Implement the state monad.
* ravanan/work/monads.scm (<mstate>): New record type.
(state-bind, current-state, set-current-state, run-with-state): New
public functions.
(state-return, state-let*, state-begin): New public macros.
* ravanan/command-line-tool.scm: Be selective to avoid importing
run-with-state from (guix monads).
* .dir-locals.el (scheme-mode): Indent state-let* correctly.
Diffstat (limited to '.dir-locals.el')
| -rw-r--r-- | .dir-locals.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 311e2f7..49094d8 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -12,4 +12,5 @@ (eval . (put 'call-with-current-directory 'scheme-indent-function 1)) (eval . (put 'call-with-inferior 'scheme-indent-function 1)) (eval . (put 'maybe-let* 'scheme-indent-function 1)) - (eval . (put 'maybe-assoc-set 'scheme-indent-function 1)))) + (eval . (put 'maybe-assoc-set 'scheme-indent-function 1)) + (eval . (put 'state-let* 'scheme-indent-function 1)))) |