/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2005--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2005--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
" @var{sym}. Choices are @code{prob}, @code{grob}, and"
" @code{context}.")
{
- if (sym == ly_symbol2scm ("context"))
+ if (scm_is_eq (sym, ly_symbol2scm ("context")))
return context_property_lookup_table ? context_property_lookup_table
: scm_c_make_hash_table (1);
- if (sym == ly_symbol2scm ("prob"))
+ if (scm_is_eq (sym, ly_symbol2scm ("prob")))
return prob_property_lookup_table ? prob_property_lookup_table
: scm_c_make_hash_table (1);
- if (sym == ly_symbol2scm ("grob"))
+ if (scm_is_eq (sym, ly_symbol2scm ("grob")))
return grob_property_lookup_table ? grob_property_lookup_table
: scm_c_make_hash_table (1);
return scm_c_make_hash_table (1);
*table = scm_permanent_object (scm_c_make_hash_table (259));
SCM hashhandle = scm_hashq_get_handle (*table, sym);
- if (hashhandle == SCM_BOOL_F)
+ if (scm_is_false (hashhandle))
{
scm_hashq_set_x (*table, sym, scm_from_int (0));
hashhandle = scm_hashq_get_handle (*table, sym);