mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

(system vm program) exports primitive?

Browse source 
* module/system/vm/program.scm: Export primitive?.  Primitive
  program-code doesn't map uniquely to the primitive, which may be of
  interest to various meta-level utilities like statprof.
This commit is contained in:
Andy Wingo 2014-02-28 17:42:45 +01:00
parent 9603919177
commit ce47749045
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/system/vm/program.scm
View file

@ -1,6 +1,6 @@
;;; Guile VM program functions ;;; Guile VM program functions
;;; Copyright (C) 2001, 2009, 2010, 2013 Free Software Foundation, Inc. ;;; Copyright (C) 2001, 2009, 2010, 2013, 2014 Free Software Foundation, Inc.
;;; ;;;
;;; This library is free software; you can redistribute it and/or ;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public ;;; modify it under the terms of the GNU Lesser General Public
@ -43,7 +43,9 @@
program? program-code program? program-code
program-free-variables program-free-variables
program-num-free-variables program-num-free-variables
program-free-variable-ref program-free-variable-set!)) program-free-variable-ref program-free-variable-set!
primitive?))
(load-extension (string-append "libguile-" (effective-version)) (load-extension (string-append "libguile-" (effective-version))
"scm_init_programs") "scm_init_programs")