diff --git a/tools/capone/lib/common.ss b/tools/capone/lib/common.ss
index 9b6d82a..8700c01 100644
--- a/tools/capone/lib/common.ss
+++ b/tools/capone/lib/common.ss
@@ -22,6 +22,9 @@
  `(if (not ,(car body))
 	 ,@(cdr body)))
 
+(define-macro (var v val)
+ `(define ,v ,val))
+
 ;;
 ;; Allow defining functions like:
 ;;  (def name (param1 param2)