← Back to branch summary

~ubuntu-branches/ubuntu/hardy/texmacs/hardy

« back to all changes in this revision

Viewing changes to src/Guile/Glue/glue_basic.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Michele Angrisano
  • Date: 2007-06-12 12:50:14 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070612125014-qifjye1qab4l42gx
Tags: 1:1.0.6.10-1ubuntu1
* Merge from Debian unstable, remaining changes:
  - debian/patches/11-desktop-file.dpatch
    Fix category in desktop file
  - Update maintainer in field debian/control.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/Guile/Glue/glue_basic.cpp
416
416
}
417
417
 
418
418
SCM
419
 
tmg_tree_set_childS (SCM arg1, SCM arg2, SCM arg3) {
420
 
  SCM_ASSERT_TREE (arg1, SCM_ARG1, "tree-set-child!");
421
 
  SCM_ASSERT_INT (arg2, SCM_ARG2, "tree-set-child!");
422
 
  SCM_ASSERT_TREE (arg3, SCM_ARG3, "tree-set-child!");
423
 
 
424
 
  tree in1= scm_to_tree (arg1);
425
 
  int in2= scm_to_int (arg2);
426
 
  tree in3= scm_to_tree (arg3);
427
 
 
428
 
  // SCM_DEFER_INTS;
429
 
  tree_set (in1, in2, in3);
430
 
  // SCM_ALLOW_INTS;
431
 
 
432
 
  return SCM_UNSPECIFIED;
433
 
}
434
 
 
435
 
SCM
436
419
tmg_tree_ip (SCM arg1) {
437
420
  SCM_ASSERT_TREE (arg1, SCM_ARG1, "tree-ip");
438
421
 
2839
2822
  scm_new_procedure ("tree-children", (FN) tmg_tree_children, 1, 0, 0);
2840
2823
  scm_new_procedure ("tree-arity", (FN) tmg_tree_arity, 1, 0, 0);
2841
2824
  scm_new_procedure ("tree-child", (FN) tmg_tree_child, 2, 0, 0);
2842
 
  scm_new_procedure ("tree-set-child!", (FN) tmg_tree_set_childS, 3, 0, 0);
2843
2825
  scm_new_procedure ("tree-ip", (FN) tmg_tree_ip, 1, 0, 0);
2844
2826
  scm_new_procedure ("tree-eq?", (FN) tmg_tree_eqP, 2, 0, 0);
2845
2827
  scm_new_procedure ("subtree", (FN) tmg_subtree, 2, 0, 0);