* scm/editor.scm: add char argument.

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 2ed241a645272f00c747d942b7d30d10b5aaec7b..339217d3f12a03626377bade1dc87dd6651688da 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -86,6 +86,8 @@
 ;; Mingw
 ;; #(Windows XP HOSTNAME build 2600 5.01 Service Pack 1 i686)
 ;;
+
+;; ugh, code dup.
 (define-public PLATFORM
   (string->symbol
    (string-downcase
@@ -359,7 +361,7 @@ The syntax is the same as `define*-public'."
          (begin
            ;; ugh
            (ly:stderr-redirect "foo" "r")
-           (system (get-editor-command log-name 0 0))
+           (system (get-editor-command log-name 0 0 0))
            (ly:error (_ "failed files: ~S") (string-join failed))
            ;; not reached?
            (exit 1))
@@ -369,7 +371,7 @@ The syntax is the same as `define*-public'."
   (let* ((ly (string-append (ly:effective-prefix) "/ly/"))
         ;; FIXME: soft-code, localize
         (welcome-ly (string-append ly "Welcome_to_LilyPond.ly"))
-        (cmd (get-editor-command welcome-ly 0 0)))
+        (cmd (get-editor-command welcome-ly 0 0 0)))
     (ly:message (_ "Invoking `~a'...") cmd)
     (system cmd)
     (exit 1)))