tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / webapps / numbers / numbers.factor
diff --git a/unmaintained/webapps/numbers/numbers.factor b/unmaintained/webapps/numbers/numbers.factor

index 59247e934ca1091a7dff9c18595e2f315ff4ee4a..d141ad1d832e335ef01db263446733a68606ca4f 100644 (file)
--- a/unmaintained/webapps/numbers/numbers.factor
+++ b/unmaintained/webapps/numbers/numbers.factor
@@ -37,9 +37,10 @@ math.parser random webapps.continuation ;
  IN: webapps.numbers
  
  : web-print ( str -- )
-  #! Display the string in a web page.
+  ! Display the string in a web page.
    [
      swap dup
+    "<!DOCTYPE html>" print
      <html>
        <head> <title> write </title> </head>
        <body>
@@ -51,6 +52,7 @@ IN: webapps.numbers
  
  : read-number ( -- )
    [
+    "<!DOCTYPE html>" print
      <html>
        <head> <title> "Enter a number" write </title> </head>
        <body>