From 636e9d75c0c9ce6adfb576e567f36817c537478b Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 18 Nov 2009 01:11:28 +0900
Subject: [PATCH] adding #! as a line-comment to support unix scripts

---
 sexp.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/sexp.c b/sexp.c
index ea068bf4..bef4d6dd 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1318,6 +1318,12 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
       else
         goto scan_loop;
       break;
+    case '!':
+      while ((c1 = sexp_read_char(ctx, in)) != EOF)
+        if (c1 == '\n')
+          break;
+      sexp_port_line(in)++;
+      goto scan_loop;
     case '\\':
       c1 = sexp_read_char(ctx, in);
       res = sexp_read_symbol(ctx, in, c1, 0);