From 2fde4244989f5e8454ca99d7d4f7363b6f078a26 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 25 Jun 2015 13:35:45 +0200 Subject: [PATCH] Issue 4461: Don't use drop-right from (srfi srfi-1) in C++ It can perfectly amicably be replaced by more efficient code readily available in the core. --- lily/unpure-pure-container.cc | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lily/unpure-pure-container.cc b/lily/unpure-pure-container.cc index 45b7188192..2dff6eea99 100644 --- a/lily/unpure-pure-container.cc +++ b/lily/unpure-pure-container.cc @@ -29,9 +29,8 @@ public: SCM call (SCM arg1, SCM arg2, SCM rest) { return scm_apply_0 (scm1 (), - scm_call_2 (ly_lily_module_constant ("drop-right"), - scm_cons2 (arg1, arg2, rest), - scm_from_int (2))); + scm_list_head (scm_cons2 (arg1, arg2, rest), + scm_length (rest))); } }; -- 2.39.5