diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp
index f6d611a..824b6ee 100644
--- a/wip-duuqnd/user-side-compiler/parser.lisp
+++ b/wip-duuqnd/user-side-compiler/parser.lisp
@@ -145,9 +145,12 @@ parser's debug output.")
   (setf name (match-syntax primary))
   (cond ((and (typep name 'token-name)
               (match-token 'token-open-paren))
-         (setf arguments (match-syntax arglist))
-         (consume-token 'token-close-paren
-                        "Close parenthesis ')' is required to end function call argument list.")
+         (cond ((match-token 'token-close-paren)
+                (setf arguments '()))
+               (t
+                (setf arguments (match-syntax arglist))
+                (consume-token 'token-close-paren
+                               "Close parenthesis ')' is required to end function call argument list.")))
          (make-instance 'node-call
                         :source *syntax-source*
                         :comment *token-comment*