From 5a2f541c61c1ceb260da963409134943033317ec Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 5 Jun 2016 15:33:36 -0700
Subject: [PATCH] factor: LOG: ;  fix games

---
 games/fluids/fluids.factor     | 2 +-
 games/jamshred/log/log.factor  | 2 +-
 libs/http/server/server.factor | 8 ++++----
 libs/logging/logging.factor    | 4 ++--
 libs/smtp/smtp.factor          | 4 ++--
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/games/fluids/fluids.factor b/games/fluids/fluids.factor
index 9c273523c5..3b112569b6 100644
--- a/games/fluids/fluids.factor
+++ b/games/fluids/fluids.factor
@@ -39,7 +39,7 @@ particle_t-array{
     S{ particle_t f float-array{ 0.3 0.3 } float-array{ 0 0 } 4.0 }
     S{ particle_t f float-array{ 0.5 0.15 } float-array{ 0 0 } 1.0 }
     S{ particle_t f float-array{ 0.5 0.1 } float-array{ 0 0 } 9.0 }
-}
+} ;
 
 : integrate-particles! ( particles dt -- particles )
     [ verlet-integrate-particle ] curry map! ;
diff --git a/games/jamshred/log/log.factor b/games/jamshred/log/log.factor
index ae427a4a57..d4515a344a 100644
--- a/games/jamshred/log/log.factor
+++ b/games/jamshred/log/log.factor
@@ -1,7 +1,7 @@
 USING: kernel logging ;
 in: jamshred.log
 
-LOG: (jamshred-log) DEBUG
+LOG: (jamshred-log) DEBUG ;
 
 : with-jamshred-log ( quot -- )
     "jamshred" swap with-logging ; inline
diff --git a/libs/http/server/server.factor b/libs/http/server/server.factor
index 86b9b2bfdb..52163e7e8a 100644
--- a/libs/http/server/server.factor
+++ b/libs/http/server/server.factor
@@ -144,9 +144,9 @@ main-responder [ <404> <trivial-responder> ] initialize
         ] bi
     ] recover ;
 
-LOG: httpd-hit NOTICE
+LOG: httpd-hit NOTICE ;
 
-LOG: httpd-header NOTICE
+LOG: httpd-header NOTICE ;
 
 : log-header ( request name -- )
     [ nip ] [ header ] 2bi 2array httpd-header ;
@@ -209,7 +209,7 @@ symbol: params
 : ?refresh-all ( -- )
     development? get-global [ [ refresh-all ] with-global ] when ;
 
-LOG: httpd-benchmark DEBUG
+LOG: httpd-benchmark DEBUG ;
 
 : ?benchmark ( quot -- )
     benchmark? get [
@@ -223,7 +223,7 @@ symbol: request-limit
 
 request-limit [ 64 1024 * ] initialize
 
-LOG: httpd-bad-request NOTICE
+LOG: httpd-bad-request NOTICE ;
 
 : handle-client-error ( error -- )
     dup request-error? [
diff --git a/libs/logging/logging.factor b/libs/logging/logging.factor
index f29cf324dd..66379dcc95 100644
--- a/libs/logging/logging.factor
+++ b/libs/logging/logging.factor
@@ -5,7 +5,7 @@ words kernel arrays shuffle tools.annotations
 prettyprint.config prettyprint debugger io.streams.string
 splitting continuations effects generalizations parser strings
 quotations fry accessors math assocs math.order
-sequences.generalizations ;
+sequences.generalizations lexer ;
 in: logging
 
 SYMBOLS: DEBUG NOTICE WARNING ERROR CRITICAL ;
@@ -139,7 +139,7 @@ PRIVATE>
 
 SYNTAX: LOG:
     ! Syntax: name level
-    scan-new-word dup scan-word
+    scan-new-word dup scan-word ";" expect
     '[ 1array stack>message _ _ log-message ]
     ( message -- ) define-declared ;
 
diff --git a/libs/smtp/smtp.factor b/libs/smtp/smtp.factor
index 3d06d76207..eb375d499a 100644
--- a/libs/smtp/smtp.factor
+++ b/libs/smtp/smtp.factor
@@ -26,7 +26,7 @@ C: <plain-auth> plain-auth ;
         1 minutes >>read-timeout
         no-auth >>auth ; inline
 
-LOG: log-smtp-connection NOTICE
+LOG: log-smtp-connection NOTICE ;
 
 : with-smtp-connection ( quot -- )
     smtp-config get server>>
@@ -91,7 +91,7 @@ ERROR: bad-email-address email ;
 : quit ( -- )
     "QUIT" command ;
 
-LOG: smtp-response DEBUG
+LOG: smtp-response DEBUG ;
 
 : multiline? ( response -- ? )
     3 swap ?nth char: - = ;