From bb3d44054e6f73f38fbc7a0795b538ccc498a190 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 16 Mar 2010 21:41:32 +0900
Subject: [PATCH] fixing syntax error with " .)" in source (issue #45)

---
 sexp.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/sexp.c b/sexp.c
index 517a0d70..169420d9 100644
--- a/sexp.c
+++ b/sexp.c
@@ -1584,13 +1584,12 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
     break;
   case '.':
     c1 = sexp_read_char(ctx, in);
+    sexp_push_char(ctx, c1, in);
     if (c1 == EOF || is_separator(c1)) {
       res = SEXP_RAWDOT;
     } else if (isdigit(c1)) {
-      sexp_push_char(ctx, c1, in);
       res = sexp_read_float_tail(ctx, in, 0, 0);
     } else {
-      sexp_push_char(ctx, c1, in);
       res = sexp_read_symbol(ctx, in, '.', 1);
     }
     break;