diff --git a/.dir-locals.el b/.dir-locals.el index f96ab13..2f08f9a 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -1,7 +1,7 @@ ((scheme-mode . ((eval . (put ' 'scheme-indent-function 1)) - (eval . (put ' 'scheme-indent-function 1)) + (eval . (put ' 'scheme-indent-function 1)) (eval . (put ' 'scheme-indent-function 1)) (eval . (put ' 'scheme-indent-function 1)) (eval . (put ' 'scheme-indent-function 1)) diff --git a/geesh/parser.scm b/geesh/parser.scm index 246b0a1..8cc5891 100644 --- a/geesh/parser.scm +++ b/geesh/parser.scm @@ -444,7 +444,7 @@ the same number of times.)" (function-definition (fname LPAREN! RPAREN! linebreak function-body) - : `( (,$1) ,$5)) + : `( ,$1 ,$5)) (function-body (compound-command) diff --git a/tests/parser.scm b/tests/parser.scm index 11730f4..aa54a0b 100644 --- a/tests/parser.scm +++ b/tests/parser.scm @@ -304,7 +304,7 @@ ;; Functions (test-equal "Parses functions" - '( ("foo") + '( "foo" ( "echo" "foo")) (parse "foo() { echo foo; }"))