Permalink
Browse files

commit before match-defuns

  • Loading branch information...
1 parent 4551ec8 commit 283d39cc669131a5634fdb0a6c0f7c3c6cde8e01 @VincentToups committed Mar 28, 2012
Showing with 18 additions and 18 deletions.
  1. +18 −18 shadchen.el
View
@@ -368,14 +368,14 @@ results can occur if `recur` is used in another position."
((list ,@patterns)
,@body))
while (and (listp ,recur-results)
- (eq (car ,recur-results) ',recursion-sigil))
- do
- (setq ,recur-results
- (match (cdr ,recur-results)
- ((list ,@patterns)
- ,@body)))
- finally
- (return ,recur-results)))))
+ (eq (car ,recur-results) ',recursion-sigil))
+ do
+ (setq ,recur-results
+ (match (cdr ,recur-results)
+ ((list ,@patterns)
+ ,@body)))
+ finally
+ (return ,recur-results)))))
(defmacro* lexical-match-let ((&rest binders) &body body)
"Like let but the left-hand-side of each binder pair can be a
@@ -399,17 +399,17 @@ to use Emacs 24 & >'s lexical binding mode with regular match-let."
(cons ',recursion-sigil ,recur-args)))
(loop with ,recur-results =
(lexical-match (list ,@value-expressions)
- ((list ,@patterns)
- ,@body))
- while (and (listp ,recur-results)
- (eq (car ,recur-results) ',recursion-sigil))
- do
- (setq ,recur-results
- (match (cdr ,recur-results)
((list ,@patterns)
- ,@body)))
- finally
- (return ,recur-results)))))
+ ,@body))
+ while (and (listp ,recur-results)
+ (eq (car ,recur-results) ',recursion-sigil))
+ do
+ (setq ,recur-results
+ (match (cdr ,recur-results)
+ ((list ,@patterns)
+ ,@body)))
+ finally
+ (return ,recur-results)))))
(provide 'shadchen)

0 comments on commit 283d39c

Please sign in to comment.