Issue 4086/1: Reimplement Input in terms of Simple_smob

[lilypond.git] / lily / book.cc

diff --git a/lily/book.cc b/lily/book.cc
index 876a93876e6cb39a0f3b9f6e1513d4609a715b62..6a09d77b69b6f85439e39717350614cce1425e8f 100644 (file)
--- a/lily/book.cc
+++ b/lily/book.cc
@@ -43,7 +43,7 @@ Book::Book ()
   input_location_ = SCM_EOL;
   smobify_self ();
 
-  input_location_ = make_input (Input ());
+  input_location_ = Input ().smobbed_copy ();
 }
 
 Book::Book (Book const &s)
@@ -61,7 +61,7 @@ Book::Book (Book const &s)
       paper_->unprotect ();
     }
 
-  input_location_ = make_input (*s.origin ());
+  input_location_ = s.origin ()->smobbed_copy ();
 
   header_ = ly_make_module (false);
   if (ly_is_module (s.header_))