*** empty log message ***

[bpt/guile.git] / src / vm_scheme.c

diff --git a/src/vm_scheme.c b/src/vm_scheme.c
index d4a5570..bb552d9 100644 (file)
--- a/src/vm_scheme.c
+++ b/src/vm_scheme.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2000 Free Software Foundation, Inc.
+/* Copyright (C) 2001 Free Software Foundation, Inc.
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -158,20 +158,6 @@ VM_DEFINE_FUNCTION (set_cdr, "set-cdr!", 2)
   RETURN (SCM_UNSPECIFIED);
 }
 
-VM_DEFINE_FUNCTION (list, "list", -1)
-{
-  ARGSN (n);
-  POP_LIST (n);
-  NEXT;
-}
-
-VM_DEFINE_FUNCTION (vector, "vector", -1)
-{
-  ARGSN (n);
-  POP_LIST (n);
-  RETURN (scm_vector (*sp));
-}
-
 \f
 /*
  * Numeric relational tests