From 8e3ee2f9c11bcce2bdc85fd31453f4b5ab6a022b Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Thu, 13 Dec 2012 20:15:17 +0530
Subject: [PATCH] (minor) macro buglets

  - allow parameter-less macros
  - allow macro body to start on next line
---
 src/syntactic-sugar/macros | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/syntactic-sugar/macros b/src/syntactic-sugar/macros
index 1202dae..2dbb5fd 100644
--- a/src/syntactic-sugar/macros
+++ b/src/syntactic-sugar/macros
@@ -12,11 +12,11 @@ sub sugar_script {
     my @out  = ();
 
     my $l = join("\n", @$lines);
-    while ($l =~ s/^macro (\w+) (.*?)\nend//ms) {
+    while ($l =~ s/^macro (\w+)\b(.*?)\nend//ms) {
         $macro{$1} = $2;
     }
 
-    $l =~ s/^((\w+) .*)/$macro{$2} ? expand($1) : $1/gem;
+    $l =~ s/^((\w+)\b.*)/$macro{$2} ? expand($1) : $1/gem;
 
     $lines = [split "\n", $l];
     return $lines;