WIP for flush-output-port

scheme/base.sld

@@ -77,6 +77,7 @@
     Cyc-remove-exception-handler
     newline
     write-char
+    flush-output-port
   )
   (begin
     ;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
@@ -134,6 +135,11 @@
       (if (null? lst)
         end
         (func (car lst) (foldr func end (cdr lst)))))
+    (define (flush-output-port . port)
+      'TODO)
+;      (if (null? port)
+;        (Cyc-flush-output-port (current-output-port))
+;        (Cyc-flush-output-port (car port))))
     (define (write-char char . port)
       (if (null? port)
         (Cyc-write-char char (current-output-port))

scheme/cyclone/cgen.scm

@@ -440,6 +440,7 @@
      ((eq? p 'close-port)            "Cyc_io_close_port")
      ((eq? p 'close-input-port)      "Cyc_io_close_input_port")
      ((eq? p 'close-output-port)     "Cyc_io_close_output_port")
+     ((eq? p 'Cyc-flush-output-port) "Cyc_io_flush_output_port")
      ((eq? p 'file-exists?)          "Cyc_io_file_exists")
      ((eq? p 'delete-file)           "Cyc_io_delete_file")
      ((eq? p 'read-char)             "Cyc_io_read_char")

scheme/cyclone/transforms.scm

@@ -601,6 +601,7 @@
      close-port
      close-input-port
      close-output-port
+     Cyc-flush-output-port
      file-exists?
      delete-file
      read-char
@@ -648,6 +649,7 @@
                   close-port
                   close-input-port
                   close-output-port
+                  Cyc-flush-output-port
                   file-exists?
                   delete-file
                   read-char